home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / adl.arc / DL-RBBS.CMD < prev    next >
Encoding:
Text File  |  1987-07-10  |  548 b   |  46 lines
  1. GOSU DL
  2. ASSI S1 S2
  3. GOSU DL
  4. ASSI S1 S3
  5. GOSU DL
  6. ASSI S1 S4
  7. GOSU DL
  8. ASSI S1 S5
  9. GOSU DL
  10. ASSI S1 S6
  11. GOSU DL
  12. ASSI S1 S7
  13. GOSU DL
  14. ASSI S1 S8
  15. GOSU DL
  16. ASSI S1 S9
  17. GOSU DL
  18. EXIT
  19.  
  20. DL:
  21. FIND S1 "XXX"
  22. IF FOUN
  23.    ALAR 3
  24.    EXIT
  25. ENDI
  26. RETRY:
  27. TRAN "D;"
  28. TRAN S1
  29. TRAN ";C!"
  30. WAIT "X> Aborts" 10
  31. IF NOT WAIT 15
  32.    TRAN "!"
  33.    WAIT "?>?" 15
  34.    GOTO R        ;Label for the RETURN
  35. ENDI
  36. GETF XMOD S1
  37. IF FAIL
  38.    MESS "Download Failed, going to next file..."
  39.    TRAN "^X^X!"
  40.    WAIT "Command?" 10
  41.    GOTO R
  42. ENDI
  43. WAIT "?>?"
  44. R:
  45. RETURN
  46.